home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / basic / REDHelpFix1.lha / Showexample < prev   
AmigaDOS Script File  |  1980-01-01  |  901b  |  41 lines
  1. .key file/k
  2. .bra {
  3. .ket }
  4.  
  5. set PORT=TED_REXX`Blitz2:REDHelp/GetTEDNumber`
  6. set FILESPEC="{file}"
  7.  
  8. if "$PORT" eq "TED_REXX"
  9.     set LC=0
  10.     lab myloop
  11.     set LC=`eval "$LC+1"`
  12.     if "$LC" NOT eq "10"
  13.         set TEDSPORT="TED_REXX"$LC
  14.         Blitz2:REDHelp/FindPort $TEDSPORT
  15.         if "$RC" eq "2"
  16.             if "$FILESPEC" eq "COMPILE"
  17.                 SYS:REXXC/rx "address $TEDSPORT ; SHOWSCREEN"
  18.                 SYS:REXXC/rx "address $TEDSPORT ; COMPILE"
  19.             else
  20.                 echo "$FILESPEC"
  21.                 SYS:REXXC/rx "address $TEDSPORT ; LOADNEW '$FILESPEC'"
  22.             endif
  23.             SYS:REXXC/rx "address $TEDSPORT ; SHOWSCREEN"
  24.             SYS:REXXC/rx "address $TEDSPORT ; ACTIVATE"
  25.             quit
  26.         endif
  27.         skip back myloop
  28.     endif
  29.     run >NIL: Blitz2:Blitz2 $FILESPEC
  30.     quit
  31. endif
  32.  
  33. if "$FILESPEC" eq "COMPILE"
  34.     SYS:REXXC/rx "address $PORT ; SHOWSCREEN"
  35.     SYS:REXXC/rx "address $PORT ; COMPILE"
  36. else
  37.     SYS:REXXC/rx "address $PORT ; LOADNEW '$FILESPEC'"
  38. endif
  39.  
  40. SYS:REXXC/rx "address $PORT ; ACTIVATE"
  41.